perm filename ZIPPS[CMS,LCS] blob
sn#096335 filedate 1974-04-06 generic text, type T, neo UTF8
00100 COMPILE;
00200 VARIABLE /Z;
00300 INSTRUMENT DUMY;
00400 ZOSCIL((P7-P3)*MAG,MAG/P8,P9);
00500 Z←P3*MAG+U1; END;
00600 INSTRUMENT ZUZZ;
00700 ZOSCIL(P4,MAG/P2,P5);
00800 ZOSCIL(U1,Z*P3,P6);
00900 OUTA←OUTA+U2; END;
01000 INSTRUMENT WUZZ;
01100 ZOSCIL(P4,MAG/P2,P5);
01200 ZOSCIL(U1,Z*P3,P6);
01300 OUTA←OUTA+U2; END;
01400 INSTRUMENT GUZZ;
01500 ZOSCIL(P4,MAG/P2,P5);
01600 ZOSCIL(U1,Z*P3,P6);
01700 OUTA←OUTA+U2; END;
01800 INSTRUMENT BUZZ;
01900 ZOSCIL(P4,MAG/P2,P5);
02000 ZOSCIL(U1,Z*P3,P6);
02100 OUTA←OUTA+U2; END;
02200 INSTRUMENT NUZZ;
02300 ZOSCIL(P4,MAG/P2,P5);
02400 ZOSCIL(U1,Z*P3,P6);
02500 OUTA←OUTA+U2; END;
02600 INSTRUMENT MUZZ;
02700 ZOSCIL(P4,MAG/P2,P5);
02800 ZOSCIL(U1,Z*P3,P6);
02900 OUTA←OUTA+U2; END;
03000 INSTRUMENT KUZZ;
03100 ZOSCIL(P4,MAG/P2,P5);
03200 ZOSCIL(U1,Z*P3,P6);
03300 OUTA←OUTA+U2; END;
03400 INSTRUMENT JUZZ;
03500 ZOSCIL(P4,MAG/P2,P5);
03600 ZOSCIL(U1,Z*P3,P6);
03700 OUTA←OUTA+U2; END;
03800 FINISH;